home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / assign manager / assignmanager / convertprefs.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-07  |  1KB  |  59 lines
  1. /* ConvertPrefs - © 1993 Matt Francis */
  2.  
  3. IF ~EXISTS("ENVARC:AssignManager.prefs") THEN
  4. DO
  5.   SAY "Can't find prefs file."
  6.   EXIT
  7. END
  8.  
  9. checkflag = 0
  10. OPEN(srcfile,"ENVARC:AssignManager.prefs")
  11. srcline = READLN(srcfile)
  12. IF EOF(srcfile) THEN
  13. DO
  14.   SAY "Prefs file empty."
  15.   EXIT
  16. END
  17. DO 5
  18.   srcline = READLN(srcfile)
  19. END
  20. IF ~EOF(srcfile) THEN
  21. DO
  22.   IF LENGTH(srcline) ~= 1 THEN checkflag = 1
  23.   IF srcline < 0 | srcline > 3 THEN checkflag = 1
  24. END
  25. CLOSE(srcfile)
  26.  
  27. IF checkflag THEN
  28. DO
  29.   WRITECH(stdout,"Prefs file may already be converted. Continue anyway? ")
  30.   PULL response
  31.   IF LEFT(response,1) ~= "Y" THEN
  32.   DO
  33.     SAY "Conversion aborted."
  34.     EXIT
  35.   END
  36. END
  37.  
  38. ADDRESS COMMAND "Copy ENVARC:AssignManager.prefs T:"
  39.  
  40. OPEN(srcfile,"T:AssignManager.prefs")
  41. OPEN(dstfile,"ENVARC:AssignManager.prefs",W)
  42.  
  43. srcline = READLN(srcfile)
  44. DO WHILE ~EOF(srcfile)
  45.   WRITELN(dstfile,srcline)
  46.   WRITELN(dstfile,READLN(srcfile))
  47.   WRITELN(dstfile,READLN(srcfile))
  48.   WRITELN(dstfile,"")
  49.   srcline = READLN(srcfile)
  50. END
  51.  
  52. CLOSE(dstfile)
  53. CLOSE(srcfile)
  54.  
  55. ADDRESS COMMAND "Delete T:AssignManager.prefs QUIET"
  56. ADDRESS COMMAND "Copy ENVARC:AssignManager.prefs ENV:"
  57.  
  58. SAY "Prefs successfully converted."
  59.